on SaveGame Named
  global NumOfPlayers,UsedCheckCounter,SvGameName
  global UsedQuestions,Player1,Player2,Player3,Player4,SndList,VidList
  global YC1Songs,YC2Songs,YC3Songs,YC4Songs,YC5Songs,YC6Songs
  global YC1Triv,YC2Triv,YC3Triv,YC4Triv,YC5Triv,YC6Triv,QFields
  global GameGLobHolder,AudHelpDone,BonusList,BonusFills,BonusSndNames,PuzNum,PointHLList
  Global UsedQ1E,UsedQ1M,UsedQ1H,UsedQ2E,UsedQ2M,UsedQ2H,UsedQ3E,UsedQ3M,UsedQ3H,UsedQ4E,UsedQ4M,UsedQ4H,UsedQ5E,UsedQ5M,UsedQ5H
  --the first 9 are only used for saved games
  put ("set NumOfPlayers =" & NumOfPlayers) into line 1 of GameGLobHolder
  put ("set Player1=" & Player1) into line 2 of GameGLobHolder
  put ("set Player2=" & Player2) into line 3 of GameGLobHolder
  put ("set Player3=" & Player3) into line 4 of GameGLobHolder
  put ("set Player4=" & Player4) into line 5 of GameGLobHolder
  put ("set UsedCheckCounter=" & quote & UsedCheckCounter & quote) into line 6 of GameGLobHolder
  put ("set UsedQuestions=" & UsedQuestions )  into line 7 of GameGLobHolder
  put ("set PointHLList=" & PointHLList) into line 8 of GameGlobHolder
  --the rest of these go into the settings file
  
  
  if YC1songs >0 then put ("set YC1Songs=" & YC1Songs) into line 9 of GameGLobHolder
  if YC2songs >0  then put ("set YC2Songs=" & YC2Songs) into line 10 of GameGLobHolder
  if YC3songs >0 then put ("set YC3Songs=" & YC3Songs) into line 11 of GameGLobHolder
  if YC4songs >0 then put ("set YC4Songs=" & YC4Songs) into line 12 of GameGLobHolder
  if YC5songs >0 then put ("set YC5Songs=" & YC5Songs) into line 13 of GameGLobHolder
  if YC6songs >0 then put ("set YC6Songs=" & YC6Songs) into line 14 of GameGLobHolder
  if YC1Triv >0 then put ("set YC1Triv=" & YC1Triv) into line 15 of GameGLobHolder
  if YC2Triv >0  then put ("set YC2Triv=" & YC2Triv) into line 16 of GameGLobHolder
  if YC3Triv >0 then put ("set YC3Triv=" & YC3Triv) into line 17 of GameGLobHolder
  if YC4Triv >0 then put ("set YC4Triv=" & YC4Triv) into line 18 of GameGLobHolder
  if YC5Triv >0 then put ("set YC5Triv=" & YC5Triv) into line 19 of GameGLobHolder
  if YC6Triv >0 then put ("set YC6Triv=" & YC6Triv) into line 20 of GameGLobHolder
  if AudHelpDone > 0 then put ("Set AudHelpDone =" & AudHelpDone) into line 21 of GameGlobHolder
  if BonusList > 0 then put ("set BonusList =" & BonusList) into line 22 of GameGLobHolder
  if BonusFills > 0 then  put ("set BonusFills =" & BonusFills) into line 23 of GameGLobHolder
  if BonusSndNames > 0  then put ("set BonusSndNames =" & BonusSndNames) into line 24 of GameGLobHolder
  if PuzNum > 0 then  put ("set PuzNum =" & PuzNum) into line 25 of GameGLobHolder
  if UsedQ1E <> [] then put ("set UsedQ1E=" & UsedQ1E) into line 26 of GameGLobHolder
  if UsedQ1M <> [] then put ("set UsedQ1M=" & UsedQ1M) into line 27 of GameGLobHolder
  if UsedQ1H <> [] then put ("set UsedQ1H=" & UsedQ1H) into line 28 of GameGLobHolder
  if UsedQ2E <> [] then put ("set UsedQ2E=" & UsedQ2E) into line 29 of GameGLobHolder
  if UsedQ2M <> [] then put ("set UsedQ2M=" & UsedQ2M) into line 30 of GameGLobHolder
  if UsedQ2H <> [] then put ("set UsedQ1E=" & UsedQ1E) into line 31 of GameGLobHolder
  if UsedQ3E <> [] then put ("set UsedQ3E=" & UsedQ3E) into line 32 of GameGLobHolder
  if UsedQ3M <> [] then put ("set UsedQ3M=" & UsedQ3M) into line 33 of GameGLobHolder
  if UsedQ3H <> [] then put ("set UsedQ3H=" & UsedQ3H) into line 34 of GameGLobHolder
  if UsedQ4E <> [] then put ("set UsedQ4E=" & UsedQ4E) into line 35 of GameGLobHolder
  if UsedQ4M <> [] then put ("set UsedQ4M=" & UsedQ4M) into line 36 of GameGLobHolder
  if UsedQ4H <> [] then put ("set UsedQ4H=" & UsedQ4H) into line 37 of GameGLobHolder
  if UsedQ5E <> [] then put ("set UsedQ5E=" & UsedQ5E) into line 38 of GameGLobHolder
  if UsedQ5M <> [] then put ("set UsedQ5M=" & UsedQ5M) into line 39 of GameGLobHolder
  if UsedQ5H <> [] then put ("set UsedQ5H=" & UsedQ5H) into line 40 of GameGLobHolder
  put ("set SndList=" & SndList) into line 41 of GameGLobHolder
  put ("set VidList=" & VidList) into line 42 of GameGLobHolder
  put "RestoreQFields" into line 42 of GameGlobHolder
  put empty into field "GlobalsSaved"
  put GameGlobHolder into field "GlobalsSaved"
  put Named
  if Named = "NAME" then OpenTextToWrite SvGameName
  if Named = "NoNAME"  then  OpenTextToWrite "Settings"
end SaveGame